.function CharToPetscii(c) {
    .if (c >= 'A' && c <= 'Z') {
        .return c-64
    } else {
        .return c
    }
}

.macro TextToPetscii(str) {
    .var pos
    .for (pos = 0; pos < str.size(); pos++) {
        .var c = str.charAt(pos)
        .byte CharToPetscii(c)
    }
}